home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / c3p0.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  6KB  |  147 lines
  1. 100 GOTO104
  2. 102 A=PEEK(AR):X=PEEK(XR):Y=PEEK(YR):RETURN
  3. 104 DEF FN R(X)=INT(RND(0)*X+1)
  4. 106 PRINTCHR$(14);"[144][147]";:TYPE=64:RS=780:IFPEEK(179)=11THENTYPE=128:(null)&:(null)15:RS=6
  5. 108 AR=RS:XR=RS+1:YR=RS+2:SB=34:IF(TYPE=128) AND (PEEK(215)<>0)THENSB=74:PRINT"";
  6. 110 POKE53280,5:POKE53281,5
  7. 112 PRINT"     [195]3[208][207]   [195]OMMODORE [195]OMPUTER [195]ODE     [146]";:PRINT"         [208]RACTICE [207]SCILLATOR V 1.0      [146]"
  8. 114 PRINT:PRINT"   [195]OPYRIGHT (C) 1990 [203]ENNETH [197]. [203]AHL":PRINT"73027,454. [198]OR AMATEUR OR HOBBIEST USE":PRINT"ONLY. [212]HIS PROGRAM MAY NOT BE SOLD OR"
  9. 116 PRINT"COMMERCIALLY REPRODUCED WITHOUT THE":PRINT"PERMISSION OF THE AUTHOR."
  10. 118 PRINT"   [213]PLOADED TO [195]OMPUSERVE [193]UGUST 1990.":PRINT"[198]EEDBACK ON THIS PROGRAM AND POSSIBLE":PRINT"IMPROVEMENTS OR SUGGESTIONS W'ULD BE":PRINT"GREATLY APPRECIATED."
  11. 120 PRINT"   [212]HIS IS A HYBRID PROGRAM WHICH WILL":PRINT"RUN WITHOUT MODIFICATION ON A C64 OR A":PRINT"C128. 80 COLUMN MODE ON THE C128 IS":PRINT"MARGINALLY FASTER."
  12. 122 PRINT"   [211]OME LINES USE BASIC 7.0 COMMANDS":PRINT"AND WILL NOT LIST CORRECTLY IN C64 MODE."
  13. 124 IFSB=74THEN(null)%
  14. 126 VC=54296:VL=5:POKEVC,VL:FR=6000:TT=15:DIMA$(47),B$(47),C$(200):FORK=1TO47:READB$(K),A$(K):NEXT:DR=0
  15. 128 AD=5120:IF(TYPE=64)THENAD=828
  16. 130 FORK=AD TO AD+160:READA:POKEK,A:NEXT
  17. 132 IF(TYPE=64)THENPOKEAD+60,(AD+142)/256:POKEAD+59,(AD+142)-256*INT((AD+142)/256)
  18. 134 READ NM:DIM RM$(NM):FORK=1TONM:READ RM$(K):NEXT
  19. 136 IFSB=74THEN(null)&
  20. 138 PRINT:PRINT"[211]ELECT OPTION. [208]RESS":PRINT" A [146] PRACTICE RECEIVING.":PRINT" B [146] PRACTICE SENDING.":PRINT" C [146] ADJUST TONE AND VOLUME."
  21. 140 GETA$:IFA$=""THEN140
  22. 142 IFA$="A"THEN GOSUB152:PRINT"[147]":GOTO138
  23. 144 IFA$="B"THEN GOSUB190:PRINT"[147]":GOTO138
  24. 146 IFA$="C"THEN GOSUB304:PRINT"[147]":GOTO138
  25. 148 GOTO140
  26. 150 REM *** PRACTICE RECEIVING ***
  27. 152 PRINT"[193]PPROXATE RATE (WORDS PER MINUTE).":PRINT"[208]RESS:":PRINT"A FOR 5 WPM":PRINT"B FOR 7 WPM":PRINT"C FOR 10 WPM":PRINT"D FOR 12 WPM"
  28. 154 TT=0:GETA$:IFA$=""THEN154
  29. 156 IFA$="A"THENTT=50
  30. 158 IFA$="B"THENTT=30
  31. 160 IFA$="C"THENTT=20
  32. 162 IFA$="D"THENTT=15
  33. 164 IFTT=0THEN154
  34. 166 PRINT"[211]ELECT:":PRINT" A [146] INPUT YOUR OWN.":PRINT" B [146] SELECT RANDOM MESSAGE FROM LIST.":PRINT" C [146] GENERATE RANDOM NONSENSE MESSAGE.":PRINT" D [146] RETURN TO MAIN MENU."
  35. 168 PRINT:PRINT"([207]PTION C IS BEST PRACTICE MODE.)
  36. 170 [161]A$:[139]A$[178]""[167]170
  37. 172 [139]A$[178]"A"[167][153]"(null)O UPPERCASE OR GRAPHICS!":[133]"(null)ESSAGE ";A$:[137]182
  38. 174 [139]A$[178]"B"[167]A$[178]RM$([165]R(NM)):[137]182
  39. 176 [139]A$[178]"C"[167][141]286:[137]182
  40. 178 [139]A$[178]"D"[167][142]
  41. 180 [137]170
  42. 182 [141]242:[153]:[133]"(null)ECEIVED";A1$
  43. 184 [139]A1$[178]A$[167][153]"(null)UT";:[129]K[178]1[164]500:[130]:[153]"STAND";:[129]K[178]1[164]500:[130]:[153]"ING.":[129]K[178]1[164]500:[130]:[137]166
  44. 186 [139]A1$[179][177]A$[167][153]"(null)OU NEED MORE PRACTICE.":[153]"(null)ENT: ";[163]10);A$:[153]"(null)ECEIVED:";[163]10);A1$:[137]166
  45. 188 [143] *** PRACTICE SENDING ***
  46. 190 [141]264
  47. 192 [153]"LOADPEEKEGIN TRANSMITTING. (null)SE ANY KEY.":[153]"(null)RANSMIT UP TO 200 CHARACTERS.":[153]"VALND OF MESSAGE (.-.-.) WILL START":[153]"STR$ECODING PROCESS."
  48. 194 FF[178]1:Z[178]1:[129]K[178]1[164]200:C$(K)[178]"":[130]:T1[178]TI
  49. 196 [139]([185](0)[177]SB)[167][153][199](13);
  50. 198 [151]YR,XT[173]4:[158]AD:[141]102
  51. 200 [139](A[179][177]1)[167]204
  52. 202 [139]FF[178]0[167][153]" ";:FF[178]1:Z[178]Z[170]1
  53. 204 [139]A[179][177]0[167]212
  54. 206 [139]X[177]XT[167][153]"-";:C$(Z)[178]C$(Z)[170]"-"
  55. 208 [139]X[179]XT[167][153]".";:C$(Z)[178]C$(Z)[170]"."
  56. 210 FF[178]0
  57. 212 [139]C$(Z)[178]".-.-."[167]216
  58. 214 [137]196
  59. 216 T2[178]TI:T3[178](T2[171]T1)[173]3600
  60. 218 [139]SB[178]74[167][254]%
  61. 220 M$[178]"":[153]:[153]"STR$ECODING:":[153]:[129]K[178]1[164]Z[171]1:[153]C$(K),;
  62. 222 [129]J[178]1[164]47:[139]C$(K)[178]A$(J)[167][153]B$(J):M$[178]M$[170]B$(J):J[178]100
  63. 224 [130]J:[139]J[178]48[167][153]"(UNKNOWN)":M$[178]M$[170]"?"
  64. 226 [130]K:[153]:[153]"MESSAGE IS:":[153]M$
  65. 228 WR[178][195](M$)[173](T3[172]5):[153]"ATNPPROXIMATE SENDING RATE =";
  66. 230 [153]([181](WR[172]10)[173]10);" WORDS.":[153]"PER MINUTE."
  67. 232 [139]SB[178]74[167][254]&
  68. 234 [153]"(null)RESS M FOR MENU, ANY KEY TO CONTINUE:":[129]K[178]1[164]10:[161]A$:[130]
  69. 236 [161]A$:[139]A$[178]""[167]236
  70. 238 [139]A$[178]"M"[167][142]
  71. 240 [137]192
  72. 242 [143]  *** SUBROUTINE TO SEND 'A$' ***
  73. 244 [129]K[178]1[164][195](A$):C$[178][202](A$,K,1):N[178][198](C$)
  74. 246 [139]C$[178]" "[167][153]:[151]YR,3[172]TT:[158]AD[170]120:[137]260
  75. 248 N[178]N[171]43
  76. 250 [153]A$(N)
  77. 252 [129]J[178]1[164][195](A$(N)):D$[178][202](A$(N),J,1)
  78. 254 DR[178]TT:[139]D$[178]"-"[167]DR[178]3[172]TT
  79. 256 [151]XR,FR[173]255:[151]YR,DR:[158]AD[170]94
  80. 258 [151]YR,TT:[158]AD[170]120:[130]J
  81. 260 [151]YR,5[172]TT:[158]AD[170]120:[130]K
  82. 262 [142]
  83. 264 [143] *** SET TRANSMIT SPEED ***
  84. 266 [153]"(null)SE ANY KEY AS SENDING KEY.":[153]"(null)END FIVE 'DOT' (.) FOR SPEED TEST:":[129]K[178]1[164]10:[161]A$:[130]:[129]K[178]1[164]5
  85. 268 [151]XR,0:[151]YR,20:[158]AD:[141]102
  86. 270 [139] A[178]1 [167]268
  87. 272 X1[178]X1[170]X:[153]".";:[130]:[153]
  88. 274 [153]"(null)END FIVE 'DASH' (-) FOR SPEED TEST:":[129]K[178]1[164]5
  89. 276 [151]XR,0:[151]YR,20:[158]AD:[141]102
  90. 278 [139] A[178]1 [167]276
  91. 280 X2[178]X2[170]X:[153]"-";:[130]:[153]
  92. 282 X1[178]X1[173]5:X2[178]X2[173]5:[139]X2[179]1.5[172]X1[167][153]"(null)OU MUST EMPHASIZE THE DASH MORE.":[153]"(null)RY AGAIN.":[137]264
  93. 284 XT[178]X1[170](X2[171]X1)[173]2:[142]
  94. 286 [143] *** GENERATE RANDOM NONSENSE MESSAGE ***
  95. 288 [139]SB[178]74[167][254]%
  96. 290 Z1[178]32:A$[178]"":XX[178]10[170][165] R(20):[129]K[178]1[164]XX
  97. 292 ZZ[178][165] R(35)[170]64:[139]ZZ[177]90 [167] ZZ[178]32
  98. 294 [139]Z1[178]32 [175] ZZ[178]32[167]292
  99. 296 Z1[178]ZZ:A$[178]A$[170][199](ZZ)
  100. 298 [130]
  101. 300 [139]SB[178]74[167][254]&
  102. 302 [142]
  103. 304 [143] *** SET TONE AND VOLUME ***
  104. 306 TT[178]15:[153]"LOAD":[153]"LENURSOR UP = HIGHER TONE.":[153]"LENURSOR DOWN = LOWER TONE.":[153]"LENURSOR RIGHT = HIGHER VOLUME.":[153]"LENURSOR LEFT = LOWER VOLUME."
  105. 308 [153]"(null)ETURN = RETURN TO MAIN MENU."
  106. 310 [129]K[178]1[164]10:[161]A$:[130]
  107. 312 A$[178]"CQ":[141]242
  108. 314 [161]A$
  109. 316 [139]A$[178]"ON"[167]FR[178]FR[170]FR[173]10:[139]FR[177]32000[167]FR[178]32000
  110. 318 [139]A$[178]""[167]FR[178]FR[171]FR[173]10:[139]FR[179]500[167]FR[178]500
  111. 320 [139]A$[178]""[167]VL[178]VL[170]1:[139]VL[177]15[167]VL[178]15
  112. 322 [139]A$[178]"CMD"[167]VL[178]VL[171]1:[139]VL[179]1[167]VL[178]1
  113. 324 [151]VC,VL
  114. 326 [139]A$[178][199](13)[167][142]
  115. 328 [137]312
  116. 330 [131]",",--..--,"-",-...-,".",.-.-.-,"/",-..-.
  117. 332 [131] 0,-----,1,.----,2,..---,3,...--,4,....-,5,.....,6,-....,7,--...,8,---..,9,----.
  118. 334 [131] ":",---...,";",-.-.-.,"<",,"=",,">",,"?",..--..,"@",
  119. 336 [131] A,.-,B,-...,C,-.-.,D,-..,E,.,F,..-.,G,--.,H,....,I,..,J,.---,K,-.-,L,.-..,M,--,N,-.,O,---,P,.--.,Q,--.-,R,.-.
  120. 338 [131] S,...,T,-,U,..-,V,...-,W,.--,X,-..-,Y,-.--,Z,--..
  121. 340 [131] 169,  0,141,  0,255,134,250,132,251, 32,159,255,232,208, 14,234
  122. 342 [131] 234,198,250,208,244,198,251,240, 66,208,238,234,234,169,  0,141
  123. 344 [131]   5,212,169,255,141,  6,212,169, 32,141,  1,212,141,  0,212,169
  124. 346 [131]  33,141,  4,212,169,  0,133,250,133,251, 32,142, 20,232,240,  8
  125. 348 [131] 230,250,208,246,230,251,208,242,169,  0,141,  6,212,169, 32,141
  126. 350 [131]   4,212,169,  0,133,208,166,250,164,251, 96,169,  1, 96,169,  0
  127. 352 [131] 141,  0,255,169,  0,141,  5,212,169,255,141,  6,212,142,  1,212
  128. 354 [131] 14,0,212,169,33,141,4,212,162,0,234,234,234,202,208,250
  129. 356 [131] 136,208,245,169,  0,141,  6,212,169, 32,141,  4,212, 96, 32,159
  130. 358 [131] 255,224,255,208, 11,234,234,234,234,234,202,208,248, 32,159,255
  131. 360 [131] 96
  132. 362 [143] *** RANDOM MESSAGES - THESE   ARE EXAMPLES ONLY. THE USER MAY ADD MORE ***
  133. 364 [131] 6 : [143] NUMBER OF MESSAGES
  134. 366 [131] "EVERY GOOD BOY DESERVES FAVOR"
  135. 368 [131] "THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG"
  136. 370 [131] "IGNORANT PEOPLE ARE AFRAID OF EVERYTHING"
  137. 372 [131] "SOS SOS SOS TITANIC HAS STRUCK ICEBERG SOS SOS SOS"
  138. 374 [131] "CQ DX CQ DX DE WC3PO 10D K"
  139. 376 [131] "THEY ARE OUTSIDE THE BUNKER NOW. DIEN BIEN PHU 23"
  140. 60000 [143] "RIGHT$ WOULD LIKE TO THANK ATNLLISON
  141. 60010 REM "[214]ON DER [204]AND OF [200]EIMPLATZ,
  142. 60020 [143] "(null)EBRASKA FOR HER ASSISTANCE
  143. 60030 REM "WITH THIS PROGRAM.
  144. 60040 [143] DOG DAY AFTERNOON MARCH 25 '90
  145. 60050 [143] KENNY DOG THE MAD PROGRAMMER
  146. 65535 [143] (C) 1990 KEN KAHL65536 REM NO MATTER WHAT
  147.